unit SmallStruct.Form.TSSMessageDialog;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  SmallStruct.Form.TSSDialog,
  StdCtrls,
  RzLabel,
  RzBckgnd,
  RzButton,
  ExtCtrls,
  RzPanel;

type
  TSSMessageDialog = class(TSSDialog)
    Image1: TImage;
    RzLabel2: TRzLabel;
  public
    function ShowMessage(const AMessage: string): Integer;
  end;

implementation

{$R *.dfm}

{ TSSMessageDialog }

function TSSMessageDialog.ShowMessage(const AMessage: string): Integer;
var
  Lines: TStringList;
begin
  Lines := TStringList.Create;
  Lines.Text := AMessage;

  Height := 100 + Lines.Count * 15;

  Lines.Free;

  RzLabel1.Caption := #10 + AMessage;
  Result := ShowModal;
end;

end.
